home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / AIncludes / Slots.a < prev    next >
Encoding:
Text File  |  1996-01-24  |  22.0 KB  |  1,031 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Slots.a
  3. ;
  4. ;    Contains:    Slot Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Package:    Universal Interfaces 2.2 in “MPW” on ETO #20
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__SLOTS__') = 'UNDEFINED' THEN
  21. __SLOTS__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__EVENTS__') = 'UNDEFINED' THEN
  30.     include 'Events.a'
  31.     ENDIF
  32. ;        include 'Quickdraw.a'                                        ;
  33. ;            include 'MixedMode.a'                                    ;
  34. ;            include 'QuickdrawText.a'                                ;
  35. ;        include 'OSUtils.a'                                        ;
  36. ;            include 'Memory.a'                                        ;
  37.  
  38.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  39.     include 'OSUtils.a'
  40.     ENDIF
  41.  
  42.     IF &TYPE('__FILES__') = 'UNDEFINED' THEN
  43.     include 'Files.a'
  44.     ENDIF
  45. ;        include 'Finder.a'                                            ;
  46.  
  47. fDontUse                        EQU        0                    ;old slotmgr put fcardIsChanged here
  48. fCardIsChanged                    EQU        1                    ;card is Changed field in StatusFlags field of sInfoArray
  49. fTempEnabled                    EQU        2                    ;slot is temporarily enabled
  50. fCkForNext                        EQU        0                    ;check for NEXT sRsrc in SRT            (SearchSRT)
  51. fCkReserved                        EQU        1                    ;check reserved field for zero         (ReadPBSize)
  52. fWarmStart                        EQU        2                    ;warm start, else cold start            (PrimaryInit)
  53. fClear                            EQU        3                    ;clear the memory                        (sNewPtr)
  54. fSys                            EQU        4                    ;alloc  on system heap                 (sNewPtr)
  55. fConsecBytes                    EQU        5                    ;calc step value for consecutive bytes (CalcStep)
  56.  
  57. stateNil                        EQU        0                    ;State
  58. stateSDMInit                    EQU        1                    ;:Slot declaration manager Init
  59. statePRAMInit                    EQU        2                    ;:sPRAM record init
  60. statePInit                        EQU        3                    ;:Primary init
  61. stateSInit                        EQU        4                    ;:Secondary init
  62. ; flags for spParamData 
  63. fall                            EQU        0                    ; bit 0: set=search enabled/disabled sRsrc's 
  64. foneslot                        EQU        1                    ;    1: set=search sRsrc's in given slot only 
  65. fnext                            EQU        2                    ;    2: set=search for next sRsrc 
  66. ; Misc masks 
  67. catMask                            EQU        $08                    ; sets spCategory field of spTBMask (bit 3) 
  68. cTypeMask                        EQU        $04                    ; sets spCType    field of spTBMask (bit 2) 
  69. drvrSWMask                        EQU        $02                    ; sets spDrvrSW   field of spTBMask (bit 1) 
  70. drvrHWMask                        EQU        $01                    ; sets spDrvrHW      field of spTBMask (bit 0) 
  71.  
  72. SlotIntQElement         RECORD    0
  73. sqLink                     ds.l   1        ; offset: $0 (0)        ;ptr to next element
  74. sqType                     ds.w   1        ; offset: $4 (4)        ;queue type ID for validity
  75. sqPrio                     ds.w   1        ; offset: $6 (6)        ;priority
  76. sqAddr                     ds.l   1        ; offset: $8 (8)        ;interrupt service routine
  77. sqParm                     ds.l   1        ; offset: $C (12)        ;optional A1 parameter
  78. sizeof                     EQU *            ; size:   $10 (16)
  79.                         ENDR
  80.  
  81. ; typedef struct SlotIntQElement  SlotIntQElement
  82. ; typedef SlotIntQElement     *SQElemPtr
  83. SpBlock                 RECORD    0
  84. spResult                 ds.l   1        ; offset: $0 (0)        ;FUNCTION Result
  85. spsPointer                 ds.l   1        ; offset: $4 (4)        ;structure pointer
  86. spSize                     ds.l   1        ; offset: $8 (8)        ;size of structure
  87. spOffsetData             ds.l   1        ; offset: $C (12)        ;offset/data field used by sOffsetData
  88. spIOFileName             ds.l   1        ; offset: $10 (16)        ;ptr to IOFile name for sDisDrvrName
  89. spsExecPBlk                 ds.l   1        ; offset: $14 (20)        ;pointer to sExec parameter block.
  90. spParamData                 ds.l   1        ; offset: $18 (24)        ;misc parameter data (formerly spStackPtr).
  91. spMisc                     ds.l   1        ; offset: $1C (28)        ;misc field for SDM.
  92. spReserved                 ds.l   1        ; offset: $20 (32)        ;reserved for future expansion
  93. spIOReserved             ds.w   1        ; offset: $24 (36)        ;Reserved field of Slot Resource Table
  94. spRefNum                 ds.w   1        ; offset: $26 (38)        ;RefNum
  95. spCategory                 ds.w   1        ; offset: $28 (40)        ;sType: Category
  96. spCType                     ds.w   1        ; offset: $2A (42)        ;Type
  97. spDrvrSW                 ds.w   1        ; offset: $2C (44)        ;DrvrSW
  98. spDrvrHW                 ds.w   1        ; offset: $2E (46)        ;DrvrHW
  99. spTBMask                 ds.b   1        ; offset: $30 (48)        ;type bit mask bits 0..3 mask words 0..3
  100. spSlot                     ds.b   1        ; offset: $31 (49)        ;slot number
  101. spID                     ds.b   1        ; offset: $32 (50)        ;structure ID
  102. spExtDev                 ds.b   1        ; offset: $33 (51)        ;ID of the external device
  103. spHwDev                     ds.b   1        ; offset: $34 (52)        ;Id of the hardware device.
  104. spByteLanes                 ds.b   1        ; offset: $35 (53)        ;bytelanes from card ROM format block
  105. spFlags                     ds.b   1        ; offset: $36 (54)        ;standard flags
  106. spKey                     ds.b   1        ; offset: $37 (55)        ;Internal use only
  107. sizeof                     EQU *            ; size:   $38 (56)
  108.                         ENDR
  109.  
  110. ; typedef struct SpBlock     SpBlock
  111. ; typedef SpBlock             *SpBlockPtr
  112. SInfoRecord             RECORD    0
  113. siDirPtr                 ds.l   1        ; offset: $0 (0)        ;Pointer to directory
  114. siInitStatusA             ds.w   1        ; offset: $4 (4)        ;initialization E
  115. siInitStatusV             ds.w   1        ; offset: $6 (6)        ;status returned by vendor init code
  116. siState                     ds.b   1        ; offset: $8 (8)        ;initialization state
  117. siCPUByteLanes             ds.b   1        ; offset: $9 (9)        ;0=[d0..d7] 1=[d8..d15]
  118. siTopOfROM                 ds.b   1        ; offset: $A (10)        ;Top of ROM= $FssFFFFx: x is TopOfROM
  119. siStatusFlags             ds.b   1        ; offset: $B (11)        ;bit 0 - card is changed
  120. siTOConst                 ds.w   1        ; offset: $C (12)        ;Time Out C for BusErr
  121. siReserved                 ds.b   2        ; offset: $E (14)        ;reserved
  122. siROMAddr                 ds.l   1        ; offset: $10 (16)        ; addr of top of ROM 
  123. siSlot                     ds.b   1        ; offset: $14 (20)        ; slot number 
  124. siPadding                 ds.b   3        ; offset: $15 (21)        ; reserved 
  125. sizeof                     EQU *            ; size:   $18 (24)
  126.                         ENDR
  127.  
  128. ; typedef struct SInfoRecord  SInfoRecord
  129. ; typedef SInfoRecord         *SInfoRecPtr
  130. SDMRecord                 RECORD    0
  131. sdBEVSave                 ds.l   1        ; offset: $0 (0)        ;Save old BusErr vector
  132. sdBusErrProc             ds.l   1        ; offset: $4 (4)        ;Go here to determine if it is a BusErr
  133. sdErrorEntry             ds.l   1        ; offset: $8 (8)        ;Go here if BusErrProc finds real BusErr
  134. sdReserved                 ds.l   1        ; offset: $C (12)        ;Reserved
  135. sizeof                     EQU *            ; size:   $10 (16)
  136.                         ENDR
  137.  
  138. ; typedef struct SDMRecord     SDMRecord
  139. FHeaderRec                 RECORD    0
  140. fhDirOffset                 ds.l   1        ; offset: $0 (0)        ;offset to directory
  141. fhLength                 ds.l   1        ; offset: $4 (4)        ;length of ROM
  142. fhCRC                     ds.l   1        ; offset: $8 (8)        ;CRC
  143. fhROMRev                 ds.b   1        ; offset: $C (12)        ;revision of ROM
  144. fhFormat                 ds.b   1        ; offset: $D (13)        ;format - 2
  145. fhTstPat                 ds.l   1        ; offset: $E (14)        ;test pattern
  146. fhReserved                 ds.b   1        ; offset: $12 (18)        ;reserved
  147. fhByteLanes                 ds.b   1        ; offset: $13 (19)        ;ByteLanes
  148. sizeof                     EQU *            ; size:   $14 (20)
  149.                         ENDR
  150.  
  151. ; typedef struct FHeaderRec  FHeaderRec
  152. ; typedef FHeaderRec         *FHeaderRecPtr
  153. OffsetToDir        EQU            FHeaderRec.fhDirOffset-FHeaderRec.sizeof+1    ; offset to dir ptr    <1.8>
  154. ; 
  155. ;     Extended Format header block  -  extended declaration ROM format header for super sRsrc directories.    <H2><SM0>
  156. ; 
  157. XFHeaderRec             RECORD    0
  158. fhXSuperInit             ds.l   1        ; offset: $0 (0)        ;Offset to SuperInit SExecBlock    <fhFormat,offset>
  159. fhXSDirOffset             ds.l   1        ; offset: $4 (4)        ;Offset to SuperDirectory            <$FE,offset>
  160. fhXEOL                     ds.l   1        ; offset: $8 (8)        ;Psuedo end-of-list                <$FF,nil>
  161. fhXSTstPat                 ds.l   1        ; offset: $C (12)        ;TestPattern
  162. fhXDirOffset             ds.l   1        ; offset: $10 (16)        ;Offset to (minimal) directory
  163. fhXLength                 ds.l   1        ; offset: $14 (20)        ;Length of ROM
  164. fhXCRC                     ds.l   1        ; offset: $18 (24)        ;CRC
  165. fhXROMRev                 ds.b   1        ; offset: $1C (28)        ;Revision of ROM
  166. fhXFormat                 ds.b   1        ; offset: $1D (29)        ;Format-2
  167. fhXTstPat                 ds.l   1        ; offset: $1E (30)        ;TestPattern
  168. fhXReserved                 ds.b   1        ; offset: $22 (34)        ;Reserved
  169. fhXByteLanes             ds.b   1        ; offset: $23 (35)        ;ByteLanes
  170. sizeof                     EQU *            ; size:   $24 (36)
  171.                         ENDR
  172.  
  173. ; typedef struct XFHeaderRec  XFHeaderRec
  174. ; typedef XFHeaderRec         *XFHeaderRecPtr
  175. XFHdrExtraSize    Equ            XFHeaderRec.sizeof-FHeaderRec.sizeof        ; (extended - standard) delta
  176. XOffsetToDir    Equ            XFHeaderRec.fhXSDirOffset-XFHeaderRec.sizeof+1    ; offset to super dir ptr
  177. XOffsetToSInit    Equ            XFHeaderRec.fhXSuperInit-XFHeaderRec.sizeof+1    ; offset to super dir ptr
  178. SEBlock                 RECORD    0
  179. seSlot                     ds.b   1        ; offset: $0 (0)        ;Slot number.
  180. sesRsrcId                 ds.b   1        ; offset: $1 (1)        ;sResource Id.
  181. seStatus                 ds.w   1        ; offset: $2 (2)        ;Status of code executed by sExec.
  182. seFlags                     ds.b   1        ; offset: $4 (4)        ;Flags
  183. seFiller0                 ds.b   1        ; offset: $5 (5)        ;Filler, must be SignedByte to align on odd boundry
  184. seFiller1                 ds.b   1        ; offset: $6 (6)        ;Filler
  185. seFiller2                 ds.b   1        ; offset: $7 (7)        ;Filler
  186. seResult                 ds.l   1        ; offset: $8 (8)        ;Result of sLoad.
  187. seIOFileName             ds.l   1        ; offset: $C (12)        ;Pointer to IOFile name.
  188. seDevice                 ds.b   1        ; offset: $10 (16)        ;Which device to read from.
  189. sePartition                 ds.b   1        ; offset: $11 (17)        ;The partition.
  190. seOSType                 ds.b   1        ; offset: $12 (18)        ;Type of OS.
  191. seReserved                 ds.b   1        ; offset: $13 (19)        ;Reserved field.
  192. seRefNum                 ds.b   1        ; offset: $14 (20)        ;RefNum of the driver.
  193. seNumDevices             ds.b   1        ; offset: $15 (21)        ; Number of devices to load.
  194. seBootState                 ds.b   1        ; offset: $16 (22)        ;State of StartBoot code.
  195. filler                     ds.b   1        ; offset: $17 (23)
  196. sizeof                     EQU *            ; size:   $18 (24)
  197.                         ENDR
  198.  
  199. ; typedef struct SEBlock     SEBlock
  200. ;  Principle  
  201. ;
  202. ; pascal OSErr SReadByte(SpBlockPtr spBlkPtr)
  203. ;
  204.     IF ¬ GENERATINGCFM THEN
  205.         ; parameters: 
  206.         ;     spBlkPtr          => A0
  207.         ; returns: 
  208.         ;     OSErr             <= D0
  209.         Macro
  210.         _SReadByte
  211.             moveq    #0,d0
  212.             dc.w     $A06E
  213.         EndM
  214.     ELSE
  215.         IMPORT_CFM_FUNCTION    SReadByte
  216.     ENDIF
  217.  
  218. ;
  219. ; pascal OSErr SReadWord(SpBlockPtr spBlkPtr)
  220. ;
  221.     IF ¬ GENERATINGCFM THEN
  222.         ; parameters: 
  223.         ;     spBlkPtr          => A0
  224.         ; returns: 
  225.         ;     OSErr             <= D0
  226.         Macro
  227.         _SReadWord
  228.             moveq    #1,d0
  229.             dc.w     $A06E
  230.         EndM
  231.     ELSE
  232.         IMPORT_CFM_FUNCTION    SReadWord
  233.     ENDIF
  234.  
  235. ;
  236. ; pascal OSErr SReadLong(SpBlockPtr spBlkPtr)
  237. ;
  238.     IF ¬ GENERATINGCFM THEN
  239.         ; parameters: 
  240.         ;     spBlkPtr          => A0
  241.         ; returns: 
  242.         ;     OSErr             <= D0
  243.         Macro
  244.         _SReadLong
  245.             moveq    #2,d0
  246.             dc.w     $A06E
  247.         EndM
  248.     ELSE
  249.         IMPORT_CFM_FUNCTION    SReadLong
  250.     ENDIF
  251.  
  252. ;
  253. ; pascal OSErr SGetCString(SpBlockPtr spBlkPtr)
  254. ;
  255.     IF ¬ GENERATINGCFM THEN
  256.         ; parameters: 
  257.         ;     spBlkPtr          => A0
  258.         ; returns: 
  259.         ;     OSErr             <= D0
  260.         Macro
  261.         _SGetCString
  262.             moveq    #3,d0
  263.             dc.w     $A06E
  264.         EndM
  265.     ELSE
  266.         IMPORT_CFM_FUNCTION    SGetCString
  267.     ENDIF
  268.  
  269. ;
  270. ; pascal OSErr SGetBlock(SpBlockPtr spBlkPtr)
  271. ;
  272.     IF ¬ GENERATINGCFM THEN
  273.         ; parameters: 
  274.         ;     spBlkPtr          => A0
  275.         ; returns: 
  276.         ;     OSErr             <= D0
  277.         Macro
  278.         _SGetBlock
  279.             moveq    #5,d0
  280.             dc.w     $A06E
  281.         EndM
  282.     ELSE
  283.         IMPORT_CFM_FUNCTION    SGetBlock
  284.     ENDIF
  285.  
  286. ;
  287. ; pascal OSErr SFindStruct(SpBlockPtr spBlkPtr)
  288. ;
  289.     IF ¬ GENERATINGCFM THEN
  290.         ; parameters: 
  291.         ;     spBlkPtr          => A0
  292.         ; returns: 
  293.         ;     OSErr             <= D0
  294.         Macro
  295.         _SFindStruct
  296.             moveq    #6,d0
  297.             dc.w     $A06E
  298.         EndM
  299.     ELSE
  300.         IMPORT_CFM_FUNCTION    SFindStruct
  301.     ENDIF
  302.  
  303. ;
  304. ; pascal OSErr SReadStruct(SpBlockPtr spBlkPtr)
  305. ;
  306.     IF ¬ GENERATINGCFM THEN
  307.         ; parameters: 
  308.         ;     spBlkPtr          => A0
  309.         ; returns: 
  310.         ;     OSErr             <= D0
  311.         Macro
  312.         _SReadStruct
  313.             moveq    #7,d0
  314.             dc.w     $A06E
  315.         EndM
  316.     ELSE
  317.         IMPORT_CFM_FUNCTION    SReadStruct
  318.     ENDIF
  319.  
  320. ;  Special  
  321. ;
  322. ; pascal OSErr SReadInfo(SpBlockPtr spBlkPtr)
  323. ;
  324.     IF ¬ GENERATINGCFM THEN
  325.         ; parameters: 
  326.         ;     spBlkPtr          => A0
  327.         ; returns: 
  328.         ;     OSErr             <= D0
  329.         Macro
  330.         _SReadInfo
  331.             moveq    #16,d0
  332.             dc.w     $A06E
  333.         EndM
  334.     ELSE
  335.         IMPORT_CFM_FUNCTION    SReadInfo
  336.     ENDIF
  337.  
  338. ;
  339. ; pascal OSErr SReadPRAMRec(SpBlockPtr spBlkPtr)
  340. ;
  341.     IF ¬ GENERATINGCFM THEN
  342.         ; parameters: 
  343.         ;     spBlkPtr          => A0
  344.         ; returns: 
  345.         ;     OSErr             <= D0
  346.         Macro
  347.         _SReadPRAMRec
  348.             moveq    #17,d0
  349.             dc.w     $A06E
  350.         EndM
  351.     ELSE
  352.         IMPORT_CFM_FUNCTION    SReadPRAMRec
  353.     ENDIF
  354.  
  355. ;
  356. ; pascal OSErr SPutPRAMRec(SpBlockPtr spBlkPtr)
  357. ;
  358.     IF ¬ GENERATINGCFM THEN
  359.         ; parameters: 
  360.         ;     spBlkPtr          => A0
  361.         ; returns: 
  362.         ;     OSErr             <= D0
  363.         Macro
  364.         _SPutPRAMRec
  365.             moveq    #18,d0
  366.             dc.w     $A06E
  367.         EndM
  368.     ELSE
  369.         IMPORT_CFM_FUNCTION    SPutPRAMRec
  370.     ENDIF
  371.  
  372. ;
  373. ; pascal OSErr SReadFHeader(SpBlockPtr spBlkPtr)
  374. ;
  375.     IF ¬ GENERATINGCFM THEN
  376.         ; parameters: 
  377.         ;     spBlkPtr          => A0
  378.         ; returns: 
  379.         ;     OSErr             <= D0
  380.         Macro
  381.         _SReadFHeader
  382.             moveq    #19,d0
  383.             dc.w     $A06E
  384.         EndM
  385.     ELSE
  386.         IMPORT_CFM_FUNCTION    SReadFHeader
  387.     ENDIF
  388.  
  389. ;
  390. ; pascal OSErr SNextSRsrc(SpBlockPtr spBlkPtr)
  391. ;
  392.     IF ¬ GENERATINGCFM THEN
  393.         ; parameters: 
  394.         ;     spBlkPtr          => A0
  395.         ; returns: 
  396.         ;     OSErr             <= D0
  397.         Macro
  398.         _SNextSRsrc
  399.             moveq    #20,d0
  400.             dc.w     $A06E
  401.         EndM
  402.     ELSE
  403.         IMPORT_CFM_FUNCTION    SNextSRsrc
  404.     ENDIF
  405.  
  406. ;
  407. ; pascal OSErr SNextTypeSRsrc(SpBlockPtr spBlkPtr)
  408. ;
  409.     IF ¬ GENERATINGCFM THEN
  410.         ; parameters: 
  411.         ;     spBlkPtr          => A0
  412.         ; returns: 
  413.         ;     OSErr             <= D0
  414.         Macro
  415.         _SNextTypeSRsrc
  416.             moveq    #21,d0
  417.             dc.w     $A06E
  418.         EndM
  419.     ELSE
  420.         IMPORT_CFM_FUNCTION    SNextTypeSRsrc
  421.     ENDIF
  422.  
  423. ;
  424. ; pascal OSErr SRsrcInfo(SpBlockPtr spBlkPtr)
  425. ;
  426.     IF ¬ GENERATINGCFM THEN
  427.         ; parameters: 
  428.         ;     spBlkPtr          => A0
  429.         ; returns: 
  430.         ;     OSErr             <= D0
  431.         Macro
  432.         _SRsrcInfo
  433.             moveq    #22,d0
  434.             dc.w     $A06E
  435.         EndM
  436.     ELSE
  437.         IMPORT_CFM_FUNCTION    SRsrcInfo
  438.     ENDIF
  439.  
  440. ;
  441. ; pascal OSErr SDisposePtr(SpBlockPtr spBlkPtr)
  442. ;
  443.     IF ¬ GENERATINGCFM THEN
  444.         ; parameters: 
  445.         ;     spBlkPtr          => A0
  446.         ; returns: 
  447.         ;     OSErr             <= D0
  448.         Macro
  449.         _SDisposePtr
  450.             moveq    #23,d0
  451.             dc.w     $A06E
  452.         EndM
  453.     ELSE
  454.         IMPORT_CFM_FUNCTION    SDisposePtr
  455.     ENDIF
  456.  
  457. ;
  458. ; pascal OSErr SCkCardStat(SpBlockPtr spBlkPtr)
  459. ;
  460.     IF ¬ GENERATINGCFM THEN
  461.         ; parameters: 
  462.         ;     spBlkPtr          => A0
  463.         ; returns: 
  464.         ;     OSErr             <= D0
  465.         Macro
  466.         _SCkCardStat
  467.             moveq    #24,d0
  468.             dc.w     $A06E
  469.         EndM
  470.     ELSE
  471.         IMPORT_CFM_FUNCTION    SCkCardStat
  472.     ENDIF
  473.  
  474. ;
  475. ; pascal OSErr SReadDrvrName(SpBlockPtr spBlkPtr)
  476. ;
  477.     IF ¬ GENERATINGCFM THEN
  478.         ; parameters: 
  479.         ;     spBlkPtr          => A0
  480.         ; returns: 
  481.         ;     OSErr             <= D0
  482.         Macro
  483.         _SReadDrvrName
  484.             moveq    #25,d0
  485.             dc.w     $A06E
  486.         EndM
  487.     ELSE
  488.         IMPORT_CFM_FUNCTION    SReadDrvrName
  489.     ENDIF
  490.  
  491. ;
  492. ; pascal OSErr SFindSRTRec(SpBlockPtr spBlkPtr)
  493. ;
  494.     IF ¬ GENERATINGCFM THEN
  495.         ; parameters: 
  496.         ;     spBlkPtr          => A0
  497.         ; returns: 
  498.         ;     OSErr             <= D0
  499.         Macro
  500.         _SFindSRTRec
  501.             moveq    #26,d0
  502.             dc.w     $A06E
  503.         EndM
  504.     ELSE
  505.         IMPORT_CFM_FUNCTION    SFindSRTRec
  506.     ENDIF
  507.  
  508. ;
  509. ; pascal OSErr SFindDevBase(SpBlockPtr spBlkPtr)
  510. ;
  511.     IF ¬ GENERATINGCFM THEN
  512.         ; parameters: 
  513.         ;     spBlkPtr          => A0
  514.         ; returns: 
  515.         ;     OSErr             <= D0
  516.         Macro
  517.         _SFindDevBase
  518.             moveq    #27,d0
  519.             dc.w     $A06E
  520.         EndM
  521.     ELSE
  522.         IMPORT_CFM_FUNCTION    SFindDevBase
  523.     ENDIF
  524.  
  525. ;
  526. ; pascal OSErr SFindBigDevBase(SpBlockPtr spBlkPtr)
  527. ;
  528.     IF ¬ GENERATINGCFM THEN
  529.         ; parameters: 
  530.         ;     spBlkPtr          => A0
  531.         ; returns: 
  532.         ;     OSErr             <= D0
  533.         Macro
  534.         _SFindBigDevBase
  535.             moveq    #28,d0
  536.             dc.w     $A06E
  537.         EndM
  538.     ELSE
  539.         IMPORT_CFM_FUNCTION    SFindBigDevBase
  540.     ENDIF
  541.  
  542. ;  Advanced  
  543. ;
  544. ; pascal OSErr InitSDeclMgr(SpBlockPtr spBlkPtr)
  545. ;
  546.     IF ¬ GENERATINGCFM THEN
  547.         ; parameters: 
  548.         ;     spBlkPtr          => A0
  549.         ; returns: 
  550.         ;     OSErr             <= D0
  551.         Macro
  552.         _InitSDeclMgr
  553.             moveq    #32,d0
  554.             dc.w     $A06E
  555.         EndM
  556.     ELSE
  557.         IMPORT_CFM_FUNCTION    InitSDeclMgr
  558.     ENDIF
  559.  
  560. ;
  561. ; pascal OSErr SPrimaryInit(SpBlockPtr spBlkPtr)
  562. ;
  563.     IF ¬ GENERATINGCFM THEN
  564.         ; parameters: 
  565.         ;     spBlkPtr          => A0
  566.         ; returns: 
  567.         ;     OSErr             <= D0
  568.         Macro
  569.         _SPrimaryInit
  570.             moveq    #33,d0
  571.             dc.w     $A06E
  572.         EndM
  573.     ELSE
  574.         IMPORT_CFM_FUNCTION    SPrimaryInit
  575.     ENDIF
  576.  
  577. ;
  578. ; pascal OSErr SCardChanged(SpBlockPtr spBlkPtr)
  579. ;
  580.     IF ¬ GENERATINGCFM THEN
  581.         ; parameters: 
  582.         ;     spBlkPtr          => A0
  583.         ; returns: 
  584.         ;     OSErr             <= D0
  585.         Macro
  586.         _SCardChanged
  587.             moveq    #34,d0
  588.             dc.w     $A06E
  589.         EndM
  590.     ELSE
  591.         IMPORT_CFM_FUNCTION    SCardChanged
  592.     ENDIF
  593.  
  594. ;
  595. ; pascal OSErr SExec(SpBlockPtr spBlkPtr)
  596. ;
  597.     IF ¬ GENERATINGCFM THEN
  598.         ; parameters: 
  599.         ;     spBlkPtr          => A0
  600.         ; returns: 
  601.         ;     OSErr             <= D0
  602.         Macro
  603.         _SExec
  604.             moveq    #35,d0
  605.             dc.w     $A06E
  606.         EndM
  607.     ELSE
  608.         IMPORT_CFM_FUNCTION    SExec
  609.     ENDIF
  610.  
  611. ;
  612. ; pascal OSErr SOffsetData(SpBlockPtr spBlkPtr)
  613. ;
  614.     IF ¬ GENERATINGCFM THEN
  615.         ; parameters: 
  616.         ;     spBlkPtr          => A0
  617.         ; returns: 
  618.         ;     OSErr             <= D0
  619.         Macro
  620.         _SOffsetData
  621.             moveq    #36,d0
  622.             dc.w     $A06E
  623.         EndM
  624.     ELSE
  625.         IMPORT_CFM_FUNCTION    SOffsetData
  626.     ENDIF
  627.  
  628. ;
  629. ; pascal OSErr SInitPRAMRecs(SpBlockPtr spBlkPtr)
  630. ;
  631.     IF ¬ GENERATINGCFM THEN
  632.         ; parameters: 
  633.         ;     spBlkPtr          => A0
  634.         ; returns: 
  635.         ;     OSErr             <= D0
  636.         Macro
  637.         _SInitPRAMRecs
  638.             moveq    #37,d0
  639.             dc.w     $A06E
  640.         EndM
  641.     ELSE
  642.         IMPORT_CFM_FUNCTION    SInitPRAMRecs
  643.     ENDIF
  644.  
  645. ;
  646. ; pascal OSErr SReadPBSize(SpBlockPtr spBlkPtr)
  647. ;
  648.     IF ¬ GENERATINGCFM THEN
  649.         ; parameters: 
  650.         ;     spBlkPtr          => A0
  651.         ; returns: 
  652.         ;     OSErr             <= D0
  653.         Macro
  654.         _SReadPBSize
  655.             moveq    #38,d0
  656.             dc.w     $A06E
  657.         EndM
  658.     ELSE
  659.         IMPORT_CFM_FUNCTION    SReadPBSize
  660.     ENDIF
  661.  
  662. ;
  663. ; pascal OSErr SCalcStep(SpBlockPtr spBlkPtr)
  664. ;
  665.     IF ¬ GENERATINGCFM THEN
  666.         ; parameters: 
  667.         ;     spBlkPtr          => A0
  668.         ; returns: 
  669.         ;     OSErr             <= D0
  670.         Macro
  671.         _SCalcStep
  672.             moveq    #40,d0
  673.             dc.w     $A06E
  674.         EndM
  675.     ELSE
  676.         IMPORT_CFM_FUNCTION    SCalcStep
  677.     ENDIF
  678.  
  679. ;
  680. ; pascal OSErr SInitSRsrcTable(SpBlockPtr spBlkPtr)
  681. ;
  682.     IF ¬ GENERATINGCFM THEN
  683.         ; parameters: 
  684.         ;     spBlkPtr          => A0
  685.         ; returns: 
  686.         ;     OSErr             <= D0
  687.         Macro
  688.         _SInitSRsrcTable
  689.             moveq    #41,d0
  690.             dc.w     $A06E
  691.         EndM
  692.     ELSE
  693.         IMPORT_CFM_FUNCTION    SInitSRsrcTable
  694.     ENDIF
  695.  
  696. ;
  697. ; pascal OSErr SSearchSRT(SpBlockPtr spBlkPtr)
  698. ;
  699.     IF ¬ GENERATINGCFM THEN
  700.         ; parameters: 
  701.         ;     spBlkPtr          => A0
  702.         ; returns: 
  703.         ;     OSErr             <= D0
  704.         Macro
  705.         _SSearchSRT
  706.             moveq    #42,d0
  707.             dc.w     $A06E
  708.         EndM
  709.     ELSE
  710.         IMPORT_CFM_FUNCTION    SSearchSRT
  711.     ENDIF
  712.  
  713. ;
  714. ; pascal OSErr SUpdateSRT(SpBlockPtr spBlkPtr)
  715. ;
  716.     IF ¬ GENERATINGCFM THEN
  717.         ; parameters: 
  718.         ;     spBlkPtr          => A0
  719.         ; returns: 
  720.         ;     OSErr             <= D0
  721.         Macro
  722.         _SUpdateSRT
  723.             moveq    #43,d0
  724.             dc.w     $A06E
  725.         EndM
  726.     ELSE
  727.         IMPORT_CFM_FUNCTION    SUpdateSRT
  728.     ENDIF
  729.  
  730. ;
  731. ; pascal OSErr SCalcSPointer(SpBlockPtr spBlkPtr)
  732. ;
  733.     IF ¬ GENERATINGCFM THEN
  734.         ; parameters: 
  735.         ;     spBlkPtr          => A0
  736.         ; returns: 
  737.         ;     OSErr             <= D0
  738.         Macro
  739.         _SCalcSPointer
  740.             moveq    #44,d0
  741.             dc.w     $A06E
  742.         EndM
  743.     ELSE
  744.         IMPORT_CFM_FUNCTION    SCalcSPointer
  745.     ENDIF
  746.  
  747. ;
  748. ; pascal OSErr SGetDriver(SpBlockPtr spBlkPtr)
  749. ;
  750.     IF ¬ GENERATINGCFM THEN
  751.         ; parameters: 
  752.         ;     spBlkPtr          => A0
  753.         ; returns: 
  754.         ;     OSErr             <= D0
  755.         Macro
  756.         _SGetDriver
  757.             moveq    #45,d0
  758.             dc.w     $A06E
  759.         EndM
  760.     ELSE
  761.         IMPORT_CFM_FUNCTION    SGetDriver
  762.     ENDIF
  763.  
  764. ;
  765. ; pascal OSErr SPtrToSlot(SpBlockPtr spBlkPtr)
  766. ;
  767.     IF ¬ GENERATINGCFM THEN
  768.         ; parameters: 
  769.         ;     spBlkPtr          => A0
  770.         ; returns: 
  771.         ;     OSErr             <= D0
  772.         Macro
  773.         _SPtrToSlot
  774.             moveq    #46,d0
  775.             dc.w     $A06E
  776.         EndM
  777.     ELSE
  778.         IMPORT_CFM_FUNCTION    SPtrToSlot
  779.     ENDIF
  780.  
  781. ;
  782. ; pascal OSErr SFindSInfoRecPtr(SpBlockPtr spBlkPtr)
  783. ;
  784.     IF ¬ GENERATINGCFM THEN
  785.         ; parameters: 
  786.         ;     spBlkPtr          => A0
  787.         ; returns: 
  788.         ;     OSErr             <= D0
  789.         Macro
  790.         _SFindSInfoRecPtr
  791.             moveq    #47,d0
  792.             dc.w     $A06E
  793.         EndM
  794.     ELSE
  795.         IMPORT_CFM_FUNCTION    SFindSInfoRecPtr
  796.     ENDIF
  797.  
  798. ;
  799. ; pascal OSErr SFindSRsrcPtr(SpBlockPtr spBlkPtr)
  800. ;
  801.     IF ¬ GENERATINGCFM THEN
  802.         ; parameters: 
  803.         ;     spBlkPtr          => A0
  804.         ; returns: 
  805.         ;     OSErr             <= D0
  806.         Macro
  807.         _SFindSRsrcPtr
  808.             moveq    #48,d0
  809.             dc.w     $A06E
  810.         EndM
  811.     ELSE
  812.         IMPORT_CFM_FUNCTION    SFindSRsrcPtr
  813.     ENDIF
  814.  
  815. ;
  816. ; pascal OSErr SDeleteSRTRec(SpBlockPtr spBlkPtr)
  817. ;
  818.     IF ¬ GENERATINGCFM THEN
  819.         ; parameters: 
  820.         ;     spBlkPtr          => A0
  821.         ; returns: 
  822.         ;     OSErr             <= D0
  823.         Macro
  824.         _SDeleteSRTRec
  825.             moveq    #49,d0
  826.             dc.w     $A06E
  827.         EndM
  828.     ELSE
  829.         IMPORT_CFM_FUNCTION    SDeleteSRTRec
  830.     ENDIF
  831.  
  832. ;
  833. ; pascal OSErr SSecondaryInit(SpBlockPtr spBlkPtr)
  834. ;
  835.     IF ¬ GENERATINGCFM THEN
  836.         ; parameters: 
  837.         ;     spBlkPtr          => A0
  838.         ; returns: 
  839.         ;     OSErr             <= D0
  840.         Macro
  841.         _SSecondaryInit
  842.             moveq    #50,d0
  843.             dc.w     $A06E
  844.         EndM
  845.     ELSE
  846.         IMPORT_CFM_FUNCTION    SSecondaryInit
  847.     ENDIF
  848.  
  849. ;
  850. ; pascal OSErr SInitSlotPRAM(SpBlockPtr spBlkPtr)
  851. ;
  852.     IF ¬ GENERATINGCFM THEN
  853.         ; parameters: 
  854.         ;     spBlkPtr          => A0
  855.         ; returns: 
  856.         ;     OSErr             <= D0
  857.         Macro
  858.         _SInitSlotPRAM
  859.             moveq    #51,d0
  860.             dc.w     $A06E
  861.         EndM
  862.     ELSE
  863.         IMPORT_CFM_FUNCTION    SInitSlotPRAM
  864.     ENDIF
  865.  
  866. ;
  867. ; pascal OSErr OpenSlot(ParmBlkPtr paramBlock, Boolean async)
  868. ;
  869.     IF GENERATINGCFM THEN
  870.         IMPORT_CFM_FUNCTION    OpenSlot
  871.     ENDIF
  872.  
  873. ;
  874. ; pascal OSErr OpenSlotSync(ParmBlkPtr paramBlock)
  875. ;
  876.     IF ¬ GENERATINGCFM THEN
  877.         ; parameters: 
  878.         ;     paramBlock        => A0
  879.         ; returns: 
  880.         ;     OSErr             <= D0
  881.         _OpenSlotSync:    OPWORD    $A200
  882.     ELSE
  883.         IMPORT_CFM_FUNCTION    OpenSlotSync
  884.     ENDIF
  885.  
  886. ;
  887. ; pascal OSErr OpenSlotAsync(ParmBlkPtr paramBlock)
  888. ;
  889.     IF ¬ GENERATINGCFM THEN
  890.         ; parameters: 
  891.         ;     paramBlock        => A0
  892.         ; returns: 
  893.         ;     OSErr             <= D0
  894.         _OpenSlotAsync:    OPWORD    $A600
  895.     ELSE
  896.         IMPORT_CFM_FUNCTION    OpenSlotAsync
  897.     ENDIF
  898.  
  899. ;  Device Manager Slot Support  
  900. ;
  901. ; pascal OSErr SIntInstall(SQElemPtr sIntQElemPtr, short theSlot)
  902. ;
  903.     IF ¬ GENERATINGCFM THEN
  904.         ; parameters: 
  905.         ;     sIntQElemPtr      => A0
  906.         ;     theSlot           => D0
  907.         ; returns: 
  908.         ;     OSErr             <= D0
  909.         _SIntInstall:    OPWORD    $A075
  910.     ELSE
  911.         IMPORT_CFM_FUNCTION    SIntInstall
  912.     ENDIF
  913.  
  914. ;
  915. ; pascal OSErr SIntRemove(SQElemPtr sIntQElemPtr, short theSlot)
  916. ;
  917.     IF ¬ GENERATINGCFM THEN
  918.         ; parameters: 
  919.         ;     sIntQElemPtr      => A0
  920.         ;     theSlot           => D0
  921.         ; returns: 
  922.         ;     OSErr             <= D0
  923.         _SIntRemove:    OPWORD    $A076
  924.     ELSE
  925.         IMPORT_CFM_FUNCTION    SIntRemove
  926.     ENDIF
  927.  
  928. ;
  929. ; pascal OSErr SVersion(SpBlockPtr spBlkPtr)
  930. ;
  931.     IF ¬ GENERATINGCFM THEN
  932.         ; parameters: 
  933.         ;     spBlkPtr          => A0
  934.         ; returns: 
  935.         ;     OSErr             <= D0
  936.         Macro
  937.         _SVersion
  938.             moveq    #8,d0
  939.             dc.w     $A06E
  940.         EndM
  941.     ELSE
  942.         IMPORT_CFM_FUNCTION    SVersion
  943.     ENDIF
  944.  
  945. ;
  946. ; pascal OSErr SetSRsrcState(SpBlockPtr spBlkPtr)
  947. ;
  948.     IF ¬ GENERATINGCFM THEN
  949.         ; parameters: 
  950.         ;     spBlkPtr          => A0
  951.         ; returns: 
  952.         ;     OSErr             <= D0
  953.         Macro
  954.         _SetSRsrcState
  955.             moveq    #9,d0
  956.             dc.w     $A06E
  957.         EndM
  958.     ELSE
  959.         IMPORT_CFM_FUNCTION    SetSRsrcState
  960.     ENDIF
  961.  
  962. ;
  963. ; pascal OSErr InsertSRTRec(SpBlockPtr spBlkPtr)
  964. ;
  965.     IF ¬ GENERATINGCFM THEN
  966.         ; parameters: 
  967.         ;     spBlkPtr          => A0
  968.         ; returns: 
  969.         ;     OSErr             <= D0
  970.         Macro
  971.         _InsertSRTRec
  972.             moveq    #10,d0
  973.             dc.w     $A06E
  974.         EndM
  975.     ELSE
  976.         IMPORT_CFM_FUNCTION    InsertSRTRec
  977.     ENDIF
  978.  
  979. ;
  980. ; pascal OSErr SGetSRsrc(SpBlockPtr spBlkPtr)
  981. ;
  982.     IF ¬ GENERATINGCFM THEN
  983.         ; parameters: 
  984.         ;     spBlkPtr          => A0
  985.         ; returns: 
  986.         ;     OSErr             <= D0
  987.         Macro
  988.         _SGetSRsrc
  989.             moveq    #11,d0
  990.             dc.w     $A06E
  991.         EndM
  992.     ELSE
  993.         IMPORT_CFM_FUNCTION    SGetSRsrc
  994.     ENDIF
  995.  
  996. ;
  997. ; pascal OSErr SGetTypeSRsrc(SpBlockPtr spBlkPtr)
  998. ;
  999.     IF ¬ GENERATINGCFM THEN
  1000.         ; parameters: 
  1001.         ;     spBlkPtr          => A0
  1002.         ; returns: 
  1003.         ;     OSErr             <= D0
  1004.         Macro
  1005.         _SGetTypeSRsrc
  1006.             moveq    #12,d0
  1007.             dc.w     $A06E
  1008.         EndM
  1009.     ELSE
  1010.         IMPORT_CFM_FUNCTION    SGetTypeSRsrc
  1011.     ENDIF
  1012.  
  1013. ;
  1014. ; pascal OSErr SGetSRsrcPtr(SpBlockPtr spBlkPtr)
  1015. ;
  1016.     IF ¬ GENERATINGCFM THEN
  1017.         ; parameters: 
  1018.         ;     spBlkPtr          => A0
  1019.         ; returns: 
  1020.         ;     OSErr             <= D0
  1021.         Macro
  1022.         _SGetSRsrcPtr
  1023.             moveq    #29,d0
  1024.             dc.w     $A06E
  1025.         EndM
  1026.     ELSE
  1027.         IMPORT_CFM_FUNCTION    SGetSRsrcPtr
  1028.     ENDIF
  1029.  
  1030.     ENDIF ; __SLOTS__
  1031.